1 POKE53280,0:IFA=0THENA=1:LOAD"SHOW.OBJ*",8,1
5 POKE53281,0:PRINTCHR$(142)"[147][154]PRESS A KEY FOR BEGIN
7 [151]198,0:[146]198,1
10 PACE[178]0
20 MODE[178]1
30 SPEED[178]4
50 [151]1000,PACE
60 [151]1001,SPEED
70 [151]1002,MODE
1000 [129]I[178]0[164]9:[135]PC
1010 [158]57812"FORPIC "[170][199](PC)[170]"*",8,1
1020 [151]780,0
1030 [158]65493
1500 [139]PACE[178]0[167][151]1000,[187](0)[172]254[170]1
2000 [158]4096[172]5
2500 [151]198,0
3000 [129]J[178]0[164]500
3010 [139][194](198)[175]1[167]3030
3020 [130]J
3030 [130]I
3100 [129]J[178]0[164]500
3110 [139][194](198)[175]1[167]4000
3120 [130]J
3500 [151]198,0
4000 [151]53265,27
4010 [151]53270,200
4015 [151]53272,21
4020 [151]53281,0:[153]"LOADE N D (PRESS A KEY FOR RESET)
4030 POKE198,0:WAIT198,1
4040 SYS64738
4050 DATA 65,66,67,68,70,71,72,75,76,77